home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / ip20t21a.lha / IFX20to21a_Patch / Install_2.1a next >
Text File  |  1995-11-10  |  23KB  |  767 lines
  1. ; ImageFX 2.0 -> 2.1a Patch Install Script
  2. ;
  3. ; Written by Thomas Krehbiel
  4. ;
  5. ; Copyright © 1995 Nova Design, Inc.
  6. ; All Rights Reserved
  7.  
  8. (
  9.  
  10.    ;================================================================
  11.    ; Procedure Definitions
  12.    ;================================================================
  13.  
  14.    (procedure RunLhex
  15.       ; pf_archive = name of archive to extract from
  16.       ; pf_name = name of file to extract
  17.       ; tempdir = directory to extract to
  18.       (
  19.          (set pf_error
  20.             (run
  21.                ("RAM:lhex -a -f \"-w=%s\" x %s %s"
  22.                   tempdir
  23.                   pf_archive
  24.                   pf_name
  25.                )
  26.             )
  27.          )
  28.       )
  29.    )
  30.  
  31.    (procedure RunPatch
  32.       ; pf_old = old version of file
  33.       ; pf_new = where to put new version of file
  34.       ; pf_patch = name of patch file
  35.       (
  36.          (set pf_error
  37.             (run
  38.                ("RAM:spatch \"-o%s\" \"-p%s\" \"%s\""
  39.                   pf_new
  40.                   pf_patch
  41.                   pf_old
  42.                )
  43.             )
  44.          )
  45.       )
  46.    )
  47.  
  48.    (procedure DoPatch
  49.       ; pf_name = name of file with path
  50.       ; wheredir = where old files reside
  51.       ; patchdir = where patches reside
  52.       (
  53.          (set pf_user (tackon wheredir pf_name))
  54.          (set pf_old (tackon tempdir pf_name))
  55.          (set pf_new ("%s.new" (tackon wheredir pf_name)))
  56.          (set pf_patch ("%s.pch" (tackon patchdir pf_name)))
  57.          (if (exists pf_user)
  58.             (
  59.                ; only if it was installed
  60.                (working "Reading " pf_archive)
  61.                (RunLhex)
  62.                (if pf_error
  63.                   (
  64.                      (message "LHEX failed on `" pf_archive "'.")
  65.                   )
  66.                )
  67.                (working "Updating " pf_name)
  68.                (RunPatch)
  69.                (if pf_error
  70.                   (
  71.                      (message "Patch failed on file `" pf_user "'.")
  72.                   )
  73.                   ; else
  74.                   (
  75.                      (delete pf_user)
  76.                      (rename pf_new pf_user)
  77.                   )
  78.                )
  79.                (delete pf_old)
  80.             )
  81.          )
  82.       )
  83.    )
  84.  
  85.    ;================================================================
  86.    ; Setup
  87.    ;================================================================
  88.  
  89.    ; script variables...
  90.  
  91.    (set versionname "2.1a")                     ; version number
  92.    (set programname ("ImageFX %s" versionname)) ; name of program
  93.    (set diskname1 "ImageFX_Disk1:")             ; install disk name
  94.    (set diskname2 "ImageFX_Disk2:")             ; second install disk name
  95.    (set diskname3 "ImageFX_Disk3:")             ; third install disk name
  96.    (set diskname4 "ImageFX_Disk4:")             ; fourth install disk name
  97.    (set pdiskname1 "")                          ; patch install disk 1 name
  98.    (set pdiskname2 "")                          ; patch install disk 2 name
  99.  
  100.    (set tempdir "T:")
  101.  
  102.    ; system information...
  103.  
  104.    (set osver (/ (getversion) 65536))        ; os version
  105.    (set cputype (database "cpu"))            ; cpu type
  106.  
  107.    ;-------------------
  108.    ; Pick a default directory for the installation...
  109.    (set initialdir @default-dest)            ; defaults to biggest drive
  110.    (if (getassign "ImageFX")
  111.       (
  112.          (set initialdir (getassign "ImageFX"))
  113.       )
  114.       ; else
  115.       (
  116.          (if (getassign "ImageFX2")
  117.             (
  118.                (set initialdir (getassign "ImageFX2"))
  119.                ; if we found ImageFX2:, assume user wants to keep ImageFX2:
  120.                (set assignname "ImageFX2")
  121.             )
  122.          )
  123.       )
  124.    )
  125.  
  126.    (set tryagain 1)
  127.    (while tryagain
  128.       (
  129.  
  130.          (set tryagain 0)
  131.  
  132.          ;-------------------
  133.          ; Ask where to install it...
  134.          ;(set wheredir initialdir)
  135.          (set wheredir
  136.             (askdir
  137.                (prompt "Select the directory where ImageFX is currently installed.  The files in "
  138.                        "this directory will be updated to version " versionname ".  All of your "
  139.                        "preferences will be preserved.  NOTE:  You will need your original ImageFX 2.0 "
  140.                        "disks to install this update (they will not be modified).")
  141.                (help @askdir-help)
  142.                (default initialdir)
  143.             )
  144.          )
  145.  
  146.          ;-------------------
  147.          ; Make sure it's a valid ImageFX
  148.          (set checkvar 0)
  149.          (set checkvar (+ checkvar (exists (tackon wheredir "Modules/Sys/Scale"))))
  150.          (set checkvar (+ checkvar (exists (tackon wheredir "Hooks/Sys/PaintFX"))))
  151.          (if (= 0 checkvar)
  152.             (
  153.                (message "`" wheredir "' does not appear to contain a copy of ImageFX 2.0.")
  154.                (set tryagain 1)
  155.                (set initialdir wheredir)
  156.             )
  157.          )
  158.  
  159.       )
  160.    )
  161.  
  162.    (message "The " programname " update will be installed in the drawer `" wheredir "'.  If this is correct, click `Proceed'.")
  163.  
  164.    (set @default-dest wheredir)
  165.  
  166.    ;-------------------
  167.    ; Ask which versions of modules the user wants to install.
  168.    ;(set cpu
  169.    ;   (askchoice
  170.    ;      (prompt "Select which versions of hooks and modules you would "
  171.    ;              "like to install:")
  172.    ;      (help "Some ImageFX hooks and modules (such as the JPEG modules) "
  173.    ;            "have alternate versions optimized for faster processors. "
  174.    ;            "You may choose to install only the modules optimized for "
  175.    ;            "the processor in your machine to save hard drive space.")
  176.    ;      (choices
  177.    ;         "For Any Processor"
  178.    ;         "For 68000 Or 68010"
  179.    ;         "For 68020 Or 68030, No Floating Point"
  180.    ;         "For 68020 Or 68030, With Floating Point"
  181.    ;         "For 68040, With Floating Point"
  182.    ;      )
  183.    ;      (default 0)
  184.    ;   )
  185.    ;)
  186.  
  187.    ;-------------------
  188.    ; Ask which hardware components to install
  189.    ; 2.1:  added cybergraphics & toaster
  190.    (set hardware
  191.       (askoptions
  192.          (prompt "Select the " versionname " display drivers you would like to install:")
  193.          (help "Check the boxes to indicate which display adaptors you have "
  194.                "installed on your system.")
  195.          (choices
  196.             "Cybergraphics"
  197.             "Video Toaster"
  198.          )
  199.       )
  200.    )
  201.    ; 2.1:  added scanjet & primerapro
  202.    (set hardware2
  203.       (askoptions
  204.          (prompt "Select the " versionname " hardware drivers you would like to install:")
  205.          (help "Check the boxes to indicate which peripherals you have "
  206.                "installed on your system.")
  207.          (choices
  208.             "HP ScanJet Scanner"
  209.             "Primera Printer"
  210.             "PrimeraPro Printer"
  211.          )
  212.       )
  213.    )
  214.  
  215.    (set mask_cyber   1)
  216.    (set mask_toast   2)
  217.  
  218.    (set mask_scanjet 1)
  219.    (set mask_prim    2)
  220.    (set mask_primpro 4)
  221.  
  222.    ;================================================================
  223.    ; PATCH EXISTING FILES
  224.    ;================================================================
  225.  
  226.    ;-------------------
  227.    ; Copy SPATCH to RAM: for speediness
  228.    (copyfiles
  229.       (prompt "")
  230.       (help "")
  231.       (source pdiskname1)
  232.       (dest "RAM:")
  233.       (choices "spatch")
  234.    )
  235.  
  236.    ;================================================================
  237.    ; DISK 1
  238.    ;================================================================
  239.  
  240.    (askdisk
  241.       (prompt "Please insert ImageFX 2.0 Disk 1 in any drive.")
  242.       (help "")
  243.       (dest (substr diskname1 0 (- (strlen diskname1) 1)))
  244.       (assigns)
  245.    )
  246.  
  247.    ;-------------------
  248.    ; Copy LHEX to RAM: for speediness
  249.    (copyfiles
  250.       (prompt "")
  251.       (help "")
  252.       (source diskname1)
  253.       (dest "RAM:")
  254.       (choices "lhex")
  255.    )
  256.  
  257.    ;-------------------
  258.    ; Begin by extracting our patch archive into the user's
  259.    ; chosen ImageFX directory.  This will be deleted at the end.
  260.  
  261.    (working "Extracting Update Files (1 of 2)...")
  262.  
  263.    (set patchdir (tackon wheredir "Patches"))
  264.    (makedir patchdir)
  265.  
  266.    (run
  267.       ("RAM:lhex >CON:0/0//80/lhex/AUTO -a -f \"-w=%s\" x %s"
  268.          patchdir
  269.          (tackon pdiskname1 "Patches1.lha")
  270.       )
  271.    )
  272.  
  273.    (if (= 0 (exists (tackon pdiskname1 "Patches2.lha")))
  274.       (
  275.          (set pdiskname2 "IFX_20to21a_Disk2:")  ; patch install disk 2 name
  276.          (askdisk
  277.             (prompt "Please insert ImageFX Patch Disk 2 in any drive.")
  278.             (help "")
  279.             (dest (substr pdiskname2 0 (- (strlen pdiskname2) 1)))
  280.             (assigns)
  281.          )
  282.       )
  283.    )
  284.  
  285.    (working "Extracting Update Files (2 of 2)...")
  286.  
  287.    (run
  288.       ("RAM:lhex >CON:0/0//80/lhex/AUTO -a -f \"-w=%s\" x %s"
  289.          patchdir
  290.          (tackon pdiskname2 "Patches2.lha")
  291.       )
  292.    )
  293.  
  294.    ;-------------------
  295.    ; ImageFX & Browser
  296.  
  297.    (copyfiles
  298.       (prompt "")
  299.       (help "")
  300.       (source diskname1)
  301.       (dest tempdir)
  302.       (choices "Program.lha")
  303.    )
  304.  
  305.    (set pf_archive (tackon tempdir "Program.lha"))
  306.  
  307.    (set pf_name "ImageFX") (DoPatch)
  308.    (set pf_name "Browser") (DoPatch)
  309.  
  310.    (delete (tackon tempdir "Program.lha"))
  311.  
  312.  
  313.    ;-------------------
  314.    ; Rexx
  315.  
  316.    (copyfiles
  317.       (prompt "")
  318.       (help "")
  319.       (source diskname1)
  320.       (dest tempdir)
  321.       (choices "Rexx.lha")
  322.    )
  323.  
  324.    (set pf_archive (tackon tempdir "Rexx.lha"))
  325.  
  326.    (set pf_name "Rexx/CreateNails.ifx") (DoPatch)                       ; 2.1a
  327.  
  328.    (set pf_name "Rexx/AutoFX/SaveBufferAs_MPEG.ifx") (DoPatch)          ; 2.1a
  329.    (set pf_name "Rexx/AutoFX/AutoFX.ifx.pre") (DoPatch)
  330.    (set pf_name "Rexx/AutoFX/Scale_Percent.ifx.pre") (DoPatch)
  331.    (set pf_name "Rexx/AutoFX/SaveBufferAs.ifx") (DoPatch)
  332.    (set pf_name "Rexx/AutoFX/SaveBufferAs.ifx.pre") (DoPatch)
  333.    (set pf_name "Rexx/AutoFX/SaveBufferAs_ILBM.ifx") (DoPatch)
  334.    (set pf_name "Rexx/AutoFX/SaveBufferAs_ILBM.ifx.pre") (DoPatch)
  335.    (set pf_name "Rexx/AutoFX/SaveBufferAs_JPEG.ifx") (DoPatch)
  336.    (set pf_name "Rexx/AutoFX/SaveBufferAs_JPEG.ifx.pre") (DoPatch)
  337.    (set pf_name "Rexx/AutoFX/SaveRenderedAs.ifx") (DoPatch)
  338.    (set pf_name "Rexx/AutoFX/SaveRenderedAs.ifx.pre") (DoPatch)
  339.    (set pf_name "Rexx/AutoFX/SaveRenderedAs_ILBM.ifx") (DoPatch)
  340.    (set pf_name "Rexx/AutoFX/SaveRenderedAs_ILBM.ifx.pre") (DoPatch)
  341.    (set pf_name "Rexx/AutoFX/Render_Amiga.ifx.pre") (DoPatch)
  342.    (set pf_name "Rexx/AutoFX/Render_Foreign.ifx.pre") (DoPatch)
  343.  
  344.    (set pf_name "Rexx/Browser/CreateNails.browse") (DoPatch)
  345.  
  346.    (delete (tackon tempdir "Rexx.lha"))
  347.    (run ("delete %s all quiet" (tackon tempdir "Rexx")))
  348.  
  349.  
  350.    ;-------------------
  351.    ; Libs
  352.  
  353.    (copyfiles
  354.       (prompt "")
  355.       (help "")
  356.       (source diskname1)
  357.       (dest tempdir)
  358.       (choices "Libs.lha")
  359.    )
  360.  
  361.    ; this one's kinda special
  362.    (set pf_archive (tackon tempdir "Libs.lha"))
  363.    (set pf_name "Libs/thumbnail.library")
  364.    (set pf_user "LIBS:thumbnail.library")
  365.    (set pf_old (tackon tempdir "Libs/thumbnail.library"))
  366.    (set pf_new "LIBS:thumbnail.library.new")
  367.    (set pf_patch (tackon patchdir "Libs/thumbnail.library.pch"))
  368.    (if (exists pf_user)
  369.       (
  370.          ; only if it was installed
  371.          (working "Reading Libs.lha")
  372.          (RunLhex)
  373.          (working "Updating LIBS:thumbnail.library")
  374.          (RunPatch)
  375.          (if pf_error
  376.             (
  377.                (message "Patch failed on file `" pf_user "'.")
  378.             )
  379.             ; else
  380.             (
  381.                (delete pf_user)
  382.                (rename pf_new pf_user)
  383.             )
  384.          )
  385.          (delete pf_old)
  386.       )
  387.    )
  388.  
  389.    (delete (tackon tempdir "Libs.lha"))
  390.    (run ("delete %s all quiet" (tackon tempdir "Libs")))
  391.  
  392.  
  393.    ;-------------------
  394.    ; Help
  395.  
  396.    (copyfiles
  397.       (prompt "")
  398.       (help "")
  399.       (source diskname1)
  400.       (dest tempdir)
  401.       (choices "Help.lha")
  402.    )
  403.  
  404.    (set pf_archive (tackon tempdir "Help.lha"))
  405.  
  406.    (set pf_name "Help/Arexx_Hooks.guide") (DoPatch)
  407.    (set pf_name "Help/Arexx_Loaders.guide") (DoPatch)
  408.    (set pf_name "Help/Arexx_Savers.guide") (DoPatch)
  409.    (set pf_name "Help/Arexx_Renders.guide") (DoPatch)
  410.    (set pf_name "Help/Arexx_Scanners.guide") (DoPatch)
  411.    (set pf_name "Help/Arexx_CineMorph.guide") (DoPatch)
  412.  
  413.    (delete (tackon tempdir "Help.lha"))
  414.    (run ("delete %s all quiet" (tackon tempdir "Help")))
  415.  
  416.  
  417.    ;================================================================
  418.    ; DISK 2
  419.    ;================================================================
  420.  
  421.    (askdisk
  422.       (prompt "Please insert ImageFX 2.0 Disk 2 in any drive.")
  423.       (help "")
  424.       (dest (substr diskname2 0 (- (strlen diskname2) 1)))
  425.       (assigns)
  426.    )
  427.  
  428.    ;-------------------
  429.    ; Modules
  430.  
  431.    ; copy modules.lha to ram for speed
  432.    (copyfiles
  433.       (prompt "")
  434.       (help "")
  435.       (source diskname2)
  436.       (dest tempdir)
  437.       (choices "Modules.lha")
  438.    )
  439.  
  440.    (set pf_archive (tackon tempdir "Modules.lha"))
  441.  
  442.    (set pf_name "Modules/Drawmodes2/Darken") (DoPatch)
  443.    (set pf_name "Modules/Drawmodes2/Disperse") (DoPatch)
  444.    (set pf_name "Modules/Drawmodes2/FingerPaint") (DoPatch)
  445.    (set pf_name "Modules/Drawmodes2/Lighten") (DoPatch)
  446.    (set pf_name "Modules/Drawmodes2/Smudge") (DoPatch)
  447.  
  448.    (set pf_name "Modules/Drawstyles2/AvgRubThru") (DoPatch)
  449.    (set pf_name "Modules/Drawstyles2/Pantograph") (DoPatch)
  450.  
  451.    (set pf_name "Modules/Loaders/BMP") (DoPatch)                  ; 2.1a
  452.    (set pf_name "Modules/Loaders/DataTypes") (DoPatch)
  453.    (set pf_name "Modules/Loaders/FrameStore.000") (DoPatch)
  454.    (set pf_name "Modules/Loaders/FrameStore.030") (DoPatch)
  455.    (set pf_name "Modules/Loaders/PDS_VICAR") (DoPatch)
  456.    (set pf_name "Modules/Loaders/PICT") (DoPatch)
  457.    (set pf_name "Modules/Loaders/Targa") (DoPatch)
  458.    (rename (tackon wheredir "Modules/Loaders/PICT") (tackon wheredir "Modules/Loaders/PICT.000"))
  459.  
  460.    (set pf_name "Modules/Preview/Firecracker") (DoPatch)
  461.    (set pf_name "Modules/Preview/RetinaWB") (DoPatch)
  462.    (set pf_name "Modules/Preview/Workbench") (DoPatch)
  463.  
  464.    (set pf_name "Modules/Printer/Primera") (DoPatch)
  465.  
  466.    (set pf_name "Modules/Quantize/LowMemMdnCut") (DoPatch)
  467.  
  468.    (set pf_name "Modules/Render/Amiga") (DoPatch)
  469.    (set pf_name "Modules/Render/Amiga1.3") (DoPatch)
  470.    (set pf_name "Modules/Render/Foreign") (DoPatch)
  471.  
  472.    (set pf_name "Modules/Savers/FrameStore.000") (DoPatch)
  473.    (set pf_name "Modules/Savers/FrameStore.030") (DoPatch)
  474.    (set pf_name "Modules/Savers/PCX") (DoPatch)
  475.    (set pf_name "Modules/Savers/Softimage") (DoPatch)
  476.    (set pf_name "Modules/Savers/Targa") (DoPatch)
  477.  
  478.    (set pf_name "Modules/Scanner/Epson") (DoPatch)
  479.    (set pf_name "Modules/Scanner/JX100") (DoPatch)
  480.  
  481.    (set pf_name "Modules/Sys/Distort") (DoPatch)
  482.    (set pf_name "Modules/Sys/DynamicRange") (DoPatch)
  483.    (set pf_name "Modules/Sys/MotionBlur") (DoPatch)
  484.    (set pf_name "Modules/Sys/Rotate") (DoPatch)
  485.    (set pf_name "Modules/Sys/Scale") (DoPatch)
  486.    (set pf_name "Modules/Sys/UserConvolve") (DoPatch)
  487.    (set pf_name "Modules/Sys/RIP") (DoPatch)
  488.  
  489.    (delete (tackon tempdir "Modules.lha"))
  490.    (run ("delete %s all quiet" (tackon tempdir "Modules")))
  491.  
  492.    ;================================================================
  493.    ; DISK 3
  494.    ;================================================================
  495.  
  496.    (askdisk
  497.       (prompt "Please insert ImageFX 2.0 Disk 3 in any drive.")
  498.       (help "")
  499.       (dest (substr diskname3 0 (- (strlen diskname3) 1)))
  500.       (assigns)
  501.    )
  502.  
  503.    ;-------------------
  504.    ; Hooks
  505.  
  506.    ; copy hooks.lha to ram for speed
  507.    (copyfiles
  508.       (prompt "")
  509.       (help "")
  510.       (source diskname3)
  511.       (dest tempdir)
  512.       (choices "Hooks.lha")
  513.    )
  514.  
  515.    (set pf_archive (tackon tempdir "Hooks.lha"))
  516.  
  517.    (set pf_name "Hooks/AutoFX") (DoPatch)                         ; 2.1a
  518.    (set pf_name "Hooks/CMIFX") (DoPatch)                          ; 2.1a
  519.    (set pf_name "Hooks/CMIFX.FP") (DoPatch)                       ; 2.1a
  520.    (set pf_name "Hooks/Measure") (DoPatch)                        ; 2.1a
  521.    (set pf_name "Hooks/Hist") (DoPatch)
  522.    (set pf_name "Hooks/IMP") (DoPatch)
  523.  
  524.    (set pf_name "Hooks/Sys/AntiAlias") (DoPatch)
  525.    (set pf_name "Hooks/Sys/Composite") (DoPatch)
  526.    (set pf_name "Hooks/Sys/Crystallize") (DoPatch)
  527.    (set pf_name "Hooks/Sys/Deinterlace") (DoPatch)
  528.    (set pf_name "Hooks/Sys/Interlace") (DoPatch)
  529.    (set pf_name "Hooks/Sys/Lightning.FP") (DoPatch)
  530.    (set pf_name "Hooks/Sys/Lightning") (DoPatch)
  531.    (set pf_name "Hooks/Sys/PaintFX") (DoPatch)
  532.    (set pf_name "Hooks/Sys/Perspective.FP") (DoPatch)
  533.    (set pf_name "Hooks/Sys/Perspective") (DoPatch)
  534.    (set pf_name "Hooks/Sys/Rotate") (DoPatch)
  535.    (set pf_name "Hooks/Sys/Shear") (DoPatch)
  536.    (set pf_name "Hooks/Sys/Text") (DoPatch)
  537.  
  538.    (delete (tackon tempdir "Hooks.lha"))
  539.    (run ("delete %s all quiet" (tackon tempdir "Hooks")))
  540.  
  541.    ;================================================================
  542.    ; DISK 4
  543.    ;================================================================
  544.  
  545.    ; (nothing to do on disk 4)
  546.  
  547.    ;================================================================
  548.    ; INSTALL NEW FILES
  549.    ;================================================================
  550.  
  551.    ; don't need these any more
  552.    (delete "RAM:spatch")
  553.    (delete "RAM:lhex")
  554.  
  555.    (if (BITAND mask_scanjet hardware)
  556.       (
  557.          (copyfiles
  558.             (prompt "")
  559.             (help "")
  560.             (source (tackon patchdir "Modules/Scanner"))
  561.             (dest (tackon wheredir "Modules/Scanner"))
  562.             (choices "ScanJet")
  563.          )
  564.          (copyfiles
  565.             (prompt "")
  566.             (help "")
  567.             (source (tackon patchdir "Help"))
  568.             (dest (tackon wheredir "Help"))
  569.             (choices "Scanner_ScanJet.guide")
  570.          )
  571.       )
  572.    )
  573.  
  574.    (if (BITAND mask_toast hardware)
  575.       (
  576.          (copyfiles
  577.             (prompt "")
  578.             (help "")
  579.             (source (tackon patchdir "Modules/Scanner"))
  580.             (dest (tackon wheredir "Modules/Scanner"))
  581.             (choices "Toaster")
  582.          )
  583.          (copyfiles
  584.             (prompt "")
  585.             (help "")
  586.             (source (tackon patchdir "Help"))
  587.             (dest (tackon wheredir "Help"))
  588.             (choices "Scanner_Toaster.guide")
  589.          )
  590.          (copyfiles
  591.             (prompt "")
  592.             (help "")
  593.             (source (tackon patchdir "Modules/Render"))
  594.             (dest (tackon wheredir "Modules/Render"))
  595.             (choices "Toaster")
  596.          )
  597.          (copyfiles
  598.             (prompt "")
  599.             (help "")
  600.             (source (tackon patchdir "Modules/Loaders"))
  601.             (dest (tackon wheredir "Modules/Loaders"))
  602.             (choices "FlyerClip")      ; 2.1a
  603.          )
  604.          (copyfiles
  605.             (prompt "")
  606.             (help "")
  607.             (source (tackon patchdir "Help"))
  608.             (dest (tackon wheredir "Help"))
  609.             (choices "Render_Toaster.guide")
  610.          )
  611.          (copyfiles
  612.             (prompt "")
  613.             (help "")
  614.             (source (tackon patchdir "Modules/Preview"))
  615.             (dest (tackon wheredir "Modules/Preview"))
  616.             (choices "Toaster")
  617.          )
  618.       )
  619.    )
  620.  
  621.    (if (BITAND mask_prim hardware)
  622.       (
  623.          (copyfiles
  624.             (prompt "")
  625.             (help "")
  626.             (source (tackon patchdir "Modules/Printer"))
  627.             (dest (tackon wheredir "Modules/Printer"))
  628.             (choices "Default.Primera")
  629.          )
  630.          (copyfiles
  631.             (prompt "")
  632.             (help "")
  633.             (source (tackon patchdir "Devs/Printers"))
  634.             (dest "DEVS:Printers")
  635.             (choices "Primera.FZP")
  636.          )
  637.       )
  638.    )
  639.  
  640.    (if (BITAND mask_primpro hardware)
  641.       (
  642.          (copyfiles
  643.             (prompt "")
  644.             (help "")
  645.             (source (tackon patchdir "Modules/Printer"))
  646.             (dest (tackon wheredir "Modules/Printer"))
  647.             (choices "PrimeraPro" "Default.Primera")
  648.          )
  649.          (copyfiles
  650.             (prompt "")
  651.             (help "")
  652.             (source (tackon patchdir "Help"))
  653.             (dest (tackon wheredir "Help"))
  654.             (choices "Printer_PrimeraPro.guide")
  655.          )
  656.       )
  657.    )
  658.  
  659.    (if (BITAND mask_cyber hardware)
  660.       (
  661.          (copyfiles
  662.             (prompt "")
  663.             (help "")
  664.             (source (tackon patchdir "Modules/Preview"))
  665.             (dest (tackon wheredir "Modules/Preview"))
  666.             (choices "CyberWB")
  667.          )
  668.          ; render module is an extra
  669.       )
  670.    )
  671.  
  672.    (copyfiles
  673.       (prompt "")
  674.       (help "")
  675.       (source (tackon patchdir "Modules/Loaders"))
  676.       (dest (tackon wheredir "Modules/Loaders"))
  677.       (choices
  678.          "PNG"       ; 2.1a
  679.          "PICT.030" "PICT.040"
  680.       )
  681.    )
  682.  
  683.    (copyfiles
  684.       (prompt "")
  685.       (help "")
  686.       (source (tackon patchdir "Modules/Savers"))
  687.       (dest (tackon wheredir "Modules/Savers"))
  688.       (choices
  689.          "PNG"       ; 2.1a
  690.       )
  691.    )
  692.  
  693.    (copyfiles
  694.       (prompt "")
  695.       (help "")
  696.       (source (tackon patchdir "Hooks"))
  697.       (dest (tackon wheredir "Hooks"))
  698.       (choices "CineMatte" "CMIFX.info" "CMIFX.FP.info")
  699.    )
  700.  
  701.    (copyfiles
  702.       (prompt "")
  703.       (help "")
  704.       (source (tackon patchdir "Rexx/AutoFX"))
  705.       (dest (tackon wheredir "Rexx/AutoFX"))
  706.       (choices
  707.          "CineMatte.ifx"            ; 2.1a
  708.          "Load_Region.ifx"
  709.          "Load_Region.ifx.pre"
  710.          "RenameOneForSequence.ifx"
  711.          "RenameOneForSequence.ifx.pre"
  712.          "SaveBufferAs_ILBM+A.ifx"
  713.          "SaveBufferAs_ILBM+A.ifx.pre"
  714.          "EOT_Pinch.ifx"
  715.          "EOT_Pinch.ifx.pre"
  716.          "EOT_Punch.ifx"
  717.          "EOT_Punch.ifx.pre"
  718.          "EOT_Swirl.ifx"
  719.          "EOT_Swirl.ifx.pre"
  720.          "EOT_Ripple.ifx"
  721.          "EOT_Ripple.ifx.pre"
  722.       )
  723.    )
  724.  
  725.    (copyfiles
  726.       (prompt "")
  727.       (help "")
  728.       (source patchdir)
  729.       (dest wheredir)
  730.       (choices
  731.          "ImageFX_CyberWB.info"
  732.          "ImageFX_RetinaWB.info"
  733.          "Standard.toolbox"         ; 2.1a
  734.       )
  735.    )
  736.    (tooltype
  737.       (prompt "")
  738.       (help "")
  739.       (dest (tackon wheredir "ImageFX_CyberWB"))
  740.       (noposition)
  741.    )
  742.    (tooltype
  743.       (prompt "")
  744.       (help "")
  745.       (dest (tackon wheredir "ImageFX_RetinaWB"))
  746.       (noposition)
  747.    )
  748.  
  749.    ; delete the patches
  750.    (run ("delete %s all quiet" patchdir))
  751.  
  752.    ; Installation complete!
  753. )
  754.  
  755. ; Revision History:
  756. ;
  757. ;  06.04.95 tek   Created.
  758. ;  11.04.95 tek   Modified slightly for Beta 1 release - added help files.
  759. ;  14.04.95 tek   Moved extras to separate install.  Added more arexx stuff.
  760. ;  17.04.95 tek   Added new autofx scripts.
  761. ;  18.04.95 tek   Added new CyberWB/RetinaWB icons.
  762. ;  20.04.95 tek   Added mention of the fact that the 2.0 disks aren't harmed.
  763. ;  20.04.95 tek   Added Lightning patch.
  764. ;  27.04.95 tek   Added RIP patch.
  765. ;  07.11.95 tek   Updated for 2.0 -> 2.1a patch operation.
  766. ;  10.11.95 tek   Split into two disks.
  767.